Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/background_19276.txt

Text File | 1990-08-14 | 16.7 KB | 751 lines

-- background: 19276 from stack: in
-- bmap block id: 54798
-- flags: 0000
-- background id: 0
-- name: Report Cards
----- HyperTalk script -----
on openBackground
  global checkLoc1,checkLoc2,checkLoc3,checkLoc4
  global checkLoc5,checkLoc6,checkLoc7,checkLoc8,buttonNumber
  installMenuBar 1120,1121,1122,1123,1124,1125,-204,-205
  checkMenuItem 1123,2,true
  if buttonNumber is empty then put 1 into buttonNumber
  put 1 into checkLoc1
  put 1 into checkLoc2
  put 1 into checkLoc3
  put 1 into checkLoc4
  put 1 into checkLoc5
  put 1 into checkLoc6
  put 1 into checkLoc7
  put 1 into checkLoc8
end openBackground

on closeBackground
  checkMenuItem 1123,2,false
  repeat with index = 22 to 34
    set icon of background button id index to "Md Unchecked Box"
  end repeat
end closeBackground

on doMenu menuItem
  global buttonNumber
  lock screen
  if menuItem contains "About" then
    resetCard
    restoreMenuBar
    go to card short name of this background of background "About"
    unlock screen with zoom close
  else if menuItem is "Home" then
    resetCard
    restoreMenuBar
    go home
  else if menuItem contains "Quit" then
    resetCard
    restoreMenuBar false
    go to card "Mac School® Shell"
    unlock screen with zoom close
  else if menuItem is "Open" then
    push card
    get line buttonNumber of bg field "Student Name"
    go to card it & " Classes" of this bg
    put menuItem into it
  else if (menuItem is "CSL Attendance") OR (menuItem is "CSL Marks") OR (menuItem is "Report Manager") then
    resetCard
    restoreMenuBar false
    go to background menuItem
    unlock screen with zoom open
  else if menuItem is "Term Information…" then
    push card
    get line buttonNumber of bg field "Student Name"
    go to card it & " Term" of this background
  else if menuItem is "Edit Historical Info…" then
    push card
    get line buttonNumber of bg field "Student Name"
    go to card it & " Hist" of this background
  else if menuItem is "Honor Roll…" then
    push card
    go to card "Students & Courses" of this background
  else if menuItem is "By Class" then
    resetCard
    go to background "Report Cards Classes"
  else if menuItem is "By Student" then
  else if menuItem is "Sort Order…" then
    push card
    go to card menuItem of this background
  else if menuItem is "Custom Templates…" then
    push card
    go to card menuItem of this background
  end if
  unlock screen
end doMenu

on groupOne
  global buttonNumber
  if not hilite of target then
    set hilite of background button buttonNumber to false
    set hilite of target to true
    put number of target into buttonNumber
  else
    lock screen
    push card
    get line buttonNumber of bg field "Student Name"
    go to card it & " Classes" of this bg
    unlock screen
  end if
end groupOne

on groupTwo shiftKey
  if the shiftKey is down OR shiftKey is down then
    if icon of target is "5065" then
      repeat with index = 22 to 34
        set icon of background button id index to "Md Unchecked Box"
      end repeat
    else
      repeat with index = 22 to 34
        set icon of background button id index to "Md Checked Box"
      end repeat
    end if
  else
    if icon of target is "5065" then
      set icon of target to "Md Unchecked Box"
    else set icon of target to "Md Checked Box"
  end if
end groupTwo

on resetCard
  global buttonNumber
  if buttonNumber is not 1 then
    set hilite of background button buttonNumber to false
    set hilite of background button 1 to true
    put 1 into buttonNumber
  end if
end resetCard

on editText
  repeat with index = 9 to 21
    set visible of background button id index to not visible of background button id index
  end repeat
  repeat with index = 1 to 8
    set lockText of background field id index to not lockText of background field id index
  end repeat
end editText

on newCard
  moveTextFirst
end newCard

on moveTextFirst
  --exit moveTextFirst
  put bg field "Student Number" of first card of this bg into bg field "Student Number" of this card
  put bg field "Student #" of first card of this bg into bg field "Student #" of this card
  put bg field "Student Name" of first card of this bg into bg field "Student Name" of this card
  put bg field "Homeroom" of first card of this bg into bg field "Homeroom" of this card
  put bg field "Grade" of first card of this bg into bg field "Grade" of this card
  put bg field "Class Rank" of first card of this bg into bg field "Class Rank" of this card
  put bg field "Result" of first card of this bg into bg field "Result" of this card
end moveTextFirst

on moveTextLast
  --exit moveTextLast
  put bg field "Student Number" of this card into bg field "Student Number" of last card of this bg
  put bg field "Student #" of this card into bg field "Student #" of last card of this bg
  put bg field "Student Name" of this card into bg field "Student Name" of last card of this bg
  put bg field "Homeroom" of this card into bg field "Homeroom" of last card of this bg
  put bg field "Grade" of this card into bg field "Grade" of last card of this bg
  put bg field "Class Rank" of this card into bg field "Class Rank" of last card of this bg
  put bg field "Result" of this card into bg field "Result" of last card of this bg
end moveTextLast


-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=9 top=44 right=59 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Student Number


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=399 top=44 right=59 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Date


-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=8 top=97 right=332 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 18
-- part name: Student #


-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=126 top=97 right=332 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 18
-- part name: Student Name


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=297 top=97 right=332 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 18
-- part name: Homeroom


-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=351 top=97 right=332 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 18
-- part name: Grade


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=386 top=97 right=332 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 18
-- part name: Class Rank


-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=442 top=97 right=332 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 18
-- part name: Result


-- part 9 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=8 top=98 right=115 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=116 right=133 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=134 right=151 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=152 right=169 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=170 right=187 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=188 right=205 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=206 right=223 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=224 right=241 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=242 right=259 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=260 right=277 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=278 right=295 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=296 right=313 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=314 right=331 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=99 right=113 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=117 right=131 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=135 right=149 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=153 right=167 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=171 right=185 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=189 right=203 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=207 right=221 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=225 right=239 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=243 right=257 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=261 right=275 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=279 right=293 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=297 right=311 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp


-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=315 right=329 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp shiftKey
  groupTwo shiftKey
end mouseUp